Kilometrierung (km)

Seitenende Die Kilometrierung dient der Adressierung bestimmter Abschnitte einer Strecke.
Geometrischer Bezug für die Kilometrierung ist eine virtuelle Kilometrierungslinie.
Der Kilometrierungswert wird im TECHNET-Datenbankformat verwaltet.
Dabei haben die einzelnen Stellen folgende Bedeutung:

Bei der Umwandlung der Kilometerschreibweise gelten folgende Formeln:
Kilometerschreibweise:         Km + m        Datenbankformat: DKm

Kilometerschreibweise  -> Datenbankformat:
DKm = Km * 100.000 + m + 100.000.000
Datenbankformat  ->  Kilometerschreibweise: INT bezeichnet die Funktion 'Truncated Integer'
Km = INT ( (DKm - 100.000.000) / 10.000) / 10
m  = DKm - 100.000.000 - Km * 100.000

Beispiel 'Positive Kilometrierung':
          Kilometerschreibweise: 1.2 +  34.567        =>  100120034.567

Beispiel 'Überlänge':
          Kilometerschreibweise: 1.0 + 234.567        =>  100100234.567

Beispiel 'Negative Kilometrierung':
          Kilometerschreibweise: -1.2 + -34.567       =>   99879965.433

Wandlungsroutine in VisualBasic
Public Sub KmToDB(Txt As Object)
Dim Posi%, A#, B#  '22.09.03
Posi = InStr(Txt.Text, "+")
If Posi > 1 Then
  A = Val(Left$(Txt.Text, Posi - 1))
  B = Val(Mid$(Txt.Text, Posi + 1))
  Txt.Text = LTrim$(Str$(A * 100000 + B + 100000000#))
Else
  A = Val(Txt.Text) * 1000
  If A < 9000000 Then
    Txt.Text = Datei2Km2DBF(A)
  End If
End If
End Sub
Seitenanfang DB Netz AG
Infrastrukturdatenmanagement
NID11 Adelt